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EDITOR’S CORNER 


BY STAN PRO 


EPSON PROBLEMS 

Epson has finally gotten rid of the square wave handshake _= and 
that takes care of a major problem. There are still some CCII 
interface problems with the graphics. We are offering some of 
our solutions to these problems in this issue. 


EPSON GRAPHICS 
We have recieved an Epson Utilities disk from Martin Rex which 


does Graphics on the Epson. A copy of the graphics is enclosed 
in the bulletin. It’s excellent as far as it goes but it does 
have limitations. What would be very useful would be a program 


either in Assembly or in Basic that would call from memory using 
6 bytes per character the special character set in the CCII. In 
the Grafics Driver we wrote for the Base 2 we first looked at 
the Status bit to determine if we were looking at a graphic or 
ASCII character and then went to the proper place in the table 
with a call to a memory location equal to an offset + & x the 
ASCII value. The six required bits to generate the proper char— 
acter were then called and sent to the printer buffer. I don’t 
know if it would be quicker to use this method in the graphics 
mode or use the correspondence between the CCII graphic values 
and the required values to drive the EPSON hammers to generate 
the proper codeing with anding and oring mathmatically. 


DISKS WE OWE 

We are now all caught up on all the disks that we have been 
Paid for that we are required by law to send out with the utmost 
speed. As soon as this bulletin goes out and I get a Resume’ 
typed up I will send out disks to every one that has submitted 
a disk to the group. If you don’t get a disk within 39 days 
after receiving your bulletin please drop us a reminder as your 
disk may not have reached us or reached us and dropped thru the 
cracks. Over the last 5 years I think I have developed a fairly 
good reputation for returning disks that have been submitted and 
I don’t want to blow it now. 


ADVERTISEMENTS 

Any one who has some good programs they want to peddle we will 
exchange free space in this bulletin for free copies of the pro- 
gram. We remain the sole arbiters of how much space for which 
programs. That offer goes even for the programs we already have 
copies of thru member submission or used system purchase (When 
we buy someone’*s Computer they generally toss in the software 
they have ). Seeing as we have already purchased most all ISC 
Programs they must be exempted. 


CONTEST 
It was very hard to pick the best program. Doug Peel’s Invaders 
was certainly one of the best but that was sold by us on a roy— 
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alty basis and really wasn’t a true submission. The Invaders 
submitted by the Australian group was very good but came after 
Doug’s. Overall I would have to pick Asteroids, by Tom Hudson 


because, 1) It was very well documented with source listings, 
2) It was of Arcade quality, 3) It was very very good, 4) I 
liked it best, 5S) I still don’t see how he got that much action 
into it with just one processor. Tom Hudson, you have won a set 
of paddles or a memory kit. Tom submitted a number of other ex- 
cellent programs, a number of which where almost as good as Ast— 
roids.’ Tom, if you will get in touch with me I will see that 
you get your prize. 


RUNNER UP 

We had not promised a runner up but Bill Rhodes certainly de- 
servers a runner up prize for his additions to the print driver 
and his other contributions. Bill please get in touch. 


ADDITIONAL PRIZES 

There have been a number of very heavy contributers to the 1lib-— 
rary. We will award them in addition to the programs we already 
sent them in return for their submissions either 3 diskfuls of 
Programs from around the world (¢( our choice ) or the opportun— 
ity to purchase a 16k Memory Kit for something below our cast 
$ 5G. These special contributors are Don Miller, Amod, Martin 
Rex, Ralpharythms, Rick Manazir, Roy Schaffer, Steve FPerrigo, 
J. Neuman, and B&B. F. Muldowney. Its 4 am and I’m tired. Lf f 
spelled any names wrong ( Steve ) I’m sorry. 


THE HOOK 

Their is a hook in the unpromised prizes. You must still own 
your Compucolor and must be interested in receiving the prize. 
To receive your prize you must notify me in writing or by phone 
of your interest and give me your latest address to send the 
prize out to. For practical purposes a time limit of Dec 31, 
1982 will be established to notify me of your latest address. 
Runner up and Additional prizes are what we consider the un-— 
Promised prizes. 


MOST PROGRAMS 

We have seen a number of ISC distributors advertising that they 
have the largest selection of programs available fof ISC ma- 
chines. I have seen a number of their catalogues and they have 
many fine programs. Unfortunately, some of their disks are 
right out of our library. As to size, some catalogues are quite 
extensive but I haven*t seen any that have 125 disks in them. 
Thats about how many Compucolor disks we’ve listed to date and 
we have enother 75 or so to add to the collection as we review 
them. In . jiition, we have about 5@ disks of Intecolor programs, 
some in three different software versinans. 


D. PEEL 

First, I don’t see how you do it for the price you charge. Se- 
cond, I hate to say I told you, but I haven’t sat down at my 
CCII just to enjoy it and play some games for a long time. The 


thing seems to grow and it eats up all the time you can = spend. 
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By the time I get to start using it for my own pleasure, it 
probably won*t work. One more thing - I will be glad to publish 
any good articles you may have. 


ISC RELIABILITY 

If you have had problems with the reliability of the equipment 
you have purchased from ISC, or with their service or repairs, 
Please contact me. 


LEGAL CENSORSHIP 

We are sorry we had to withold a very interesting article in 
spite of the interest expressed in it. Hopefully we will be 
able to present it later. 


STOCK REPORT 
We hear ISC’s sales are or were down 19%. No verification of 
this, though, as we have not seen the article ourselves. 


FORTH 

We have Forth up and running in our Compucolor. Not promised 
or soon to be delivered, but running. The author would like 
to know how much interest there is in it. He would like toa 


put it in a Prom and sell it if there is enough. interest. 
Please inform us if you are interested and how much you would 
be willing to pay for it. 


SPEECH 

Our CCII talks. Using a Vocoder and 8 other IC’s we have se- 
cured a complete voice system for our CCII. The speech pro- 
gram is written in Forth andincludes a vocabulary of about 75 
words. More are easiliy added. I was even able to add some. 
Forth programs can be written for it to make it count and do all 
sorts of interesting things. Steve Lewis, you’ve done one hell 
of a job, but the thing to do now is make it work in Basic. If 
Steve delivers, we will present a complete schematic in the next 
issue. No promises, though. ‘ 

Cciil 


Yes, there is a CCIII and we do have some information on it. I 
do not feel that it would be proper to publish it at this time. 
Perhaps in the next issue. (Yes, it does come from Italy. ) 


SPEAKER ON CCII 

While it is true that you can get all sorts of speaker kits for 
the CCII, there is an easier way that seems to work. One of our 
former employees, Jim, hooked his up with a 478 ohm resistor in 
series with the primary of a small audio output transformer and 
hooked the speaker up to the secondary. No power, except as put 
out by the chip. It worked fine. 


RELAY ON OUTPUT 

We have seen a number of systems for connection of external 
relays to the output of the CCII. There are lines that go 
into the disk drives. Without the enable they don’t do anything. 
We connected one of these lines up to a relay driver IC and with 
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one simple chip we were able to easily, on command, open and 
close the relay. I am not absolutely sure but I think there is 
One unused line into the disk drive that can also be used. No 


promises, but if we can find the schematic we will put it in the 
next issue. 


PAPER TIGER GRAPHICS 
Been available for over a year on one of our disks. 


MEMORY UPGRADE 

The 15k memory kits are easy to add. We suggest that if your 
machine started life as an 8k, don’t try to unsoldier the chips 
unless you’re an expert. 


LISTINGS 

We are going to start presenting listings but they will be for 
programs of special interest. We have some for graphic print— 
outs and some source codes that reveal many internal locations. 
The first one appears in this issue. There are more to come. 
It will be 2 am before th printer is finished with this so any— 
thing else will be saved for the next issue. 


ee 


HOW TO SAVE HOURS OF WORK OR RECAPTURE A LOST DOCUMENT 
BY STAN FRO 
While working on Editor’s corner at around 2: 34 am in the morn— 


I screwed up and blew the final draft. Went to same it and blew 
it out. There’s no way I was going to start remembering all the 


things I had said in it. ( @s if they are worth remembering. } 
Well blowing it out on the disk at least leaves it in memory but 
how to get to it. It was late but I came up with the little 


Program shawn below. 


The idea is ta scan the entire memory ( Not being sure where the 
buffer started I just started from scratch and searched thru 
memory. Every time the program encounters an ASCII character 
it sends it out tea the printer. 


There was one little problem. Some times the buffer had carraige 


 return-line feeds and sometimes only one. I am not sure why 
and I was to tired to figure out why so I just sent out both a 
19 and a 13 every time either was encountered. This might re- 


quire some experimenting with toa suit individual cases. 


This gave a rough draft of every thing in the buffer and the 
morn my assistant was able to retype the column in a short time 
with nmothing lost. 


5 PLOT 27,77:0UT 8,4 
18 FOR N= 34686470 655551@F0R N= 3685470 65535 
28 Y= PEEK (N) 


3G IF Y> S1AND Y< 128THEN GOSUB 106 116 RETURN 

35 IF Y= 130R Y= 1@THEN GOSUB 2a@ 286 OUT 6,16 

4g NEXT 218 OUT 4,15 

58 FOKE 33265,8 S, P 226 RETURN 
o- e e 

4@ OUT 8,255 ; READY 
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I have recently purchased an Epson MxX& 
Here are a couple of tidbits that 
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fill 


printer for my C@li.« 
anyone thinking about the 


ENOW . 


The friction feed adaptor kit sald by Orange 
Micro and athers does not work. The paper 
tends to slip on every other linefeed oar so. 
The kit provides only one set of rollers which 

is mot sufficient to keep the paper from slipping. 
(Selectric typewriters have 2 rollers.) I suggest 
you consider the MXS8FT if you need friction 
feed. 

The new high resalution graphics FROM does not 
work with the @141 serial board that is usually 
sold ta those asking for the serial interface. 

If you ever plan to use the graphics capabilities 
of the printer, make sure you get the S158 serial 
beard with the 3E buffer. The S158 casts $135-149 
compared to $75 for the 8141. 


Sa far I have been unsuccessful in weiting a BASIC 
pragram for the 8141 to print the screen display if 
the digplay cantains the CCII special graphic char- 
acters. (The Epsan FROM contains the TRS&8 graphic 
characters made up of 6 blacks while the CCII 
Theoretically, it can 


special contain 8 blacks.) 
be done easily by simply printing the first 

tap 6 blocks of the CCII character set with the 
standard Epsan set in one pass, scrolling the paper 
up the height of one block, then printing the 
boattam 2 blacks in a second pass. This can be done 
ane full line at a time to save time. But, here is 
the hitch. The Epsan is programmed to always form 
feed the full 1/8" after a graphic character is 

if the printer is set far 1/723" line-~ 


printed even 
feeds, Therefare the printer prints a blank 

line after any line that contains a qraphic charac~ 
ter, merrily lousing up any display that has 
vertically cantiguous graphic characters. The 
solution is the approach taken by the author of the 
article in the last FORUM where the screen is scan~ 
ned three pixels at a time then printed (would you 
publish that program far us), ar perhaps here’s a 


better solution. 


card and the high res 


With the 8158 serial 
can he 


graphics FROMS in the Epson, a pragram 
weitten that converts any CCII characters that 
res char 


doesn’t understand inta a high 
acter in a 6x8 dot matrix. This character would 
be stored in a data statement. I’ve encluded a 
program that does just that. Tt runs fairly fast 
at 488¢ Bautce. One full line af data is sent to 
the printer buffer at a time. While that line is 
being printed, the camputer is busy decading the 
This particular program decades only 


C 


the Epsan 


next line. 
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bBO90 
SM1 19 
SS 13H 
69128 
W128 
G14 
oe ee 


REM “GRFDMF.BASI2S* GRAPHIC SCREEN DUMF WITHOUT REM 


REM RY MARTIN F. REX 8/9/81 ae " 
REM SEE “GRFDMF.BAS#1° FOR REMARKS S, Pp 
DIM C(128),9(128) ,B1 (255), B2(255) ELECTRONIC SYSTEMS 


FOR N= @TO 255:READ Bi (N) ,B2(N) SNEXT 

PLOT ir bed Fekete Socal 13,27,51,24,15 

FOR L= 28672TO 32464@STEF 128:FOR P= @TO 127STEF 2 
IF PEER (L+ P+ 2)< Te2STHEN C(Po= PEER (Le PoeS(Po= g2s0To 
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C(P)= SS°S(F)= FEEK (L+ F)SFLAG= 1 

NEXT F 

FOR N= @T0O 127STEP 22PLOT C(N) NEXT 

IF FLAG= @THEN 68249 

PLOT 13,27,75,128,15FOR N= @T0 127STEP 2 


HERE FLOT BI(S(N)), WRICS(ND), BICS(N)) y B2(5(N)),BE(S(N)),BRCS (ND) 


6G24g 
SG260 
O29 


bM4g05 
G41a 
SM4 2 
S45 
OMA 
58458 
BAS 
O94 7B 
6848 
HAD 
SOS sea 


6GS5g 
SHS56U 
OOS 7g 
S850 
6GSF8 
SMOG 
SHo1s 
h9o2g 
SGo3e 
68645 
S965 


PLOT 13,1@:FLAG= @:NEXT L 
FOKE 23265,@:FLOT 15:END 
DATA Oss 192 Py 4B uO 290 Oy 1240/2042. 6050 
DATA it 195, 51,8, 243,8, 15,8, 297,8, 63 
DATA @, 192,192,192, 48,192, 24, 192, 12,192, 294,192, 48,192 
DATA pa lags sea elas tabs “ater tas 4 15,192,207, 192 
DATA 63,192,255, 192,9,49, 192,48, 49, 48, 240,498,132, 4€ 

DATA 204,48, 6%, 48, 252,48, 3,48, 195,48, 51,48, 
DATA 15,48, 207,48, 63, 48, 255, 48,0, 240, 192, 240,48, 248 

DATA 24, 240, 12,246,204, 248, 60, 240, 252, 240, 3, 240, 195, 248 
DATA 51,240, 243, 248, 15, 248, 207, 240,63, 246, 255, 240, 0, 
DATA 192,12,48, 12,248, 12,12, 12, 204, 12, 60, 12 

DATA ae ie fi 243, 12,15, 2 


DATA 255, 12,1, 284, pant 24g ‘ 1B, rc we 
DATA 6%, 284, 252 eh Sy 2 
DATA 297.4% F aot ee aa fond 192 40, 48, 60, 240, fod 
DATA 12,68, 294,68 68,68, 252,69, 3,68, 195, 60,51, 0 


DATA 243, 68,15, 60, 207, 69, 63,69, 255,69, 9,252,197 
DATA 48, 252, 249, 252, 12,252, 204, 202,69, 252, 25% ’ 
DATA LOS, 2S Ly Sy he ae Pa 15,252,207, Sy OS Qe ed 


DATA @,3,192,3;, 


3,15,3,207,3 


DATA 
DATA Saeko, SSE Een Toe ae, 195,249,195, 12,195 


DATA 204, 1954 GD, 1954 BID LPS 4 Sy 19S, 19S y 195, 1, LPS, 243 
DATA 15, 195, 207,195, 63,195, 255, 195,09, 51,192, 51,49, 51 
DATA 24,5141 eee 1,3, 51,195, 51 
DATA & 5 

DATA 
DATA 3, W245 5,2 
DATA 255, 2 115,192, 15,48, 15,240, 
DATA atl 525 15)3, 15, 195, 15,51, i 
DATA 
DATA 
DATA 
DATA 
DATA wl, 
DATA @, 255,192, 255 48, 255 
DATA 2 22, 255 195, 255,51, 
DATA 63, 255,4,4 


EPSON MODIFICATIONS 
BY STAN FRO 


Some people myself included seem to be having trouble with the 
newer MX8@FT*s Epsons. We have had a lot of trouble with the 
feed when using the sprocket feed. The paper jams, twists and 
does about everything else imaginable. I have been less’ than 
satisfied. 
The second problem I have encountered is to do graphics properly 
you need 8 bits. The problem is with the 2k buffer and Grafix 
8 bits only works at 4866 baud. At 7498 all you get is garbage. 
On the other hand if you use 7 bits in your normal work ( which 
1s good enough for reqular printing. > you can use the normal 
9699 baud which doesn’t requite special baud rate setting. A 
great convience. It also turns out if you want italics you also 
need the 8th bit. This seems to present a delema, as itis a 
Pain to take the cover off every time you want to change set-— 
tings. 
The answere is an external switch. Fortunetly the Epson is hook- 
ed up so that most features are gotten by grounding various 
lines thru the internal switches. 
By using a single pole, double throw swith that grounds either 
the 9669 baud line or the 8 bit line the unit may be externally 
thrown from 7 bit, 96964 baud to 8 bit, 4869 baud. 
While putting swithes on one was added to externally switch the 
printer from regular characters to italics. 
When operating from a word processor or printing posters I pre- 
fer to have the program control page feeds. On the other hand 
when doing listings the CCII internal driver doesn’t have page- 
ing. Ergo another switch to turn on the printers internal Skip- 
over. 
A number of the other functions can also be picked up by ext- 
ernal swithches. These switchs greatly extends the se apecpetniahl 
: $c. e wircipes 
and usefulness of the printer for ame. [Acw ais llaras wee es _] 
Jim this may be the answere to you problem. Why not give it a 
try. 


By the way Jim lives in Australia and uses his Epson on S#@ cycle 
current. When we sold it to him we wouldn’t gaurentee it toa 
work on S@ cycles so we were pretty glad to hear everything 
worked out O EK. 


One other comment. I don*t understand what all the fuss is ab-— 
out. I keep reading about the little * y * s. As you will note 
there are none in the listing in this bulletin or in this print— 
out. We suppress them with an OUT &,4 and sent the the text to 
the printer with a PLOT 27,77. Control is regained with a POKE 


33265, @ and OUT &, 255. 


Io guess we can also tell how we solved the problem of the flash- 
ing ready signal. The interface we developed has a memory cell 
to remember the last character sent. It also has a gate to block 
the pulses coming from the Epson. When the Epson starts sending 
hand shake signals to the CCII the first gets thru. The gate 
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then blocks any further pulses. The Epson can now sit there all 
day and send garbage to the CCII and it wont see it. However 
as soon as some legitimet data is sent the hand-shake gate opens 
up to allow the next real handshake signal thru. This may sound 
simple and it is but the developement that went into it and the 
technicians time in building and testing the device was quite 
extensive. The device we were selling replaced the Epson RS232 
interface. The reason we developed it was that we had ordered 
a dozen Epson from the distributer and then found that they 
were being retailed all over town at below our cost. We lost a 
lot of money on the deal but not as much as if we had to eat 
all those Epson’s and then have problems with machines we sold 
at below our cost. The only way we came out ahead on the deal 
was before we came out with the interface we spent one hell of a 
lot of time assisting our customer with the wild y problem. 
What it did to a Compucolor was nothing to what it did ta an 
Inte-Color. They really went wild. After we came up with our 
interface other than one unit that came loose in shipping, ( We 
believe. ) Every unit sold worked with no problems, saving us 


hours on the _ phone. It’s 4. 36 am. To bed. 
Stan Pro Be : 
S. P. Electronics S Pp 
5259 Van Nuys Blvd Saree 
VAN NUYS) CA. USA 91491 ELECTRONIC SYSTEMS 
8250 VAN NUYS BLVD.—788-8850 
Dear Stan, VAN NUYS, CALIFORNI 9140) 


I received the printer some time ago and the disk and 
serial interface instructions about ten days after. Thank you 
for the trouble I put you to. 


You will be pleased to know that the printer works like 
a dream. I cleared it through customs, bought a step-down 
transformer and some paper, plugged it in and away it goes. No 
Problems at all. I did have trouble though with the disk you 
sent me. I suspect it may have been X-rayed on the way into 
Australia and it is unreadable. I cannot even get a directory 
on it. However, I won’t worry about that because I have access 
to printer routines through various clubs here. 


The only other trouble I have had is in trying to use 
the GRFDMP routine published in Forum Vol i, No 4. For some 
reason it doesn’t work. It starts printing the screen, then 
prints a few C’s and @’s then starts form feeding the paper 
through the printer. It looks as though it should work, but TI 
can’t figure out why it doesn’t. You may like to mention this 
problem in your bulletin to see if anyone else has experienced 
this and has a cure. 


Thanks again Stan. Keep up the good work. 


Yours faithfully, 


Card 


¥e i ee : 


(Jim Farquhar) 
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A.l Key Memory Locations 


DECIMAL HEX DESCRIPTION 
32768 TO 40447 8000-9DFF Screen refresh RAM (48 line) 
41353 . A189 Points to maximum RAM used by BASIC 
41393 Al1Bl Points to start of BASIC source 
41395 A1B3 Points to end of source and start of 
variables 
41397 AIB5 Points to end of variables and start of 
arrays 
41399 A1B7 Points to end of arrays 
40351 9F 93 User ESCAPE jump vector 
40857 SESS User FLAG jump vector 31 
40854 9F 96 User Flag jump vector 30 
40848 9F 90 User time no 2 jump vector 
40953 9SFF9 Keyboard FLAG 
40884 9FB4 FCS output FLAG 
40949 SFF5 Input port FLAG S. D. 
ELECTRONIC SYSTEMS 
40886 9FB6 BASIC output FLAG  go50 van nts BLvD.—788-885° 
WAN NUYS, CALIFORNI 91437 
None Exists None Exists Output port FLAG 
40884 9FB4 LIST output FLAG 
40955 9FFB Keyboard character 
40956 9FFC Keyboard character ready FLAG 
40832 TO 40847 9F80-9F8F Printer Driver RAM 
40832 9F 80 Selected Printer 
40833 9F 81 Lines per Page 
40834 9F 82 Vertical Margin 
40835 OF 83 Horizontal Left Margin 
49336 OF 84 Physical Device Width 
40837 OF 85 Nulls/Spinwriter Pitch 
40338 OF 86 Current Line Number 


ul 


DECIMAL HEX DESCRIPTION 
40839 9F 87 Current Column Number 
40840 9F 88 Spaces Used (Spinwriter) 
40841 9F89 Lines Used (Spinwriter) 
41421 AICD Location of CALL(x) jump 
41424 A1DO BASIC output vector location 
41574 A266 Start of BASIC source code 
65535 FFFF Maximum RAM address 
A2 Port Assignments 
DECIMAL V/O_ PORT ADDRESS HEX 
0 - 15 Ist TMS 5501 0-F 
16 -31 2nd TMS 5501 10 - IF 
248 Cursor X Register (write only) F8 
249 Cursor Y Register (write only) F9 
250 Roll Register (write only) FA 
251 Light Pen Status FB 
252 Light Pen X Coordinate FC 
253 Light Pen Y Coordinate FD 
254 Light Pen Acknowledge FE 
128 Mini Disk Status 80 
129 Mini Disk Readtrack 81 
130 Mini Disk Readsector 82 
131 Mini Disk Read Data 83 
132 Mini Disk Write Command 84 
133 Mini Disk Write Track 85 
134 Mini Disk Write Sector 86 
135 Mini Disk Write Data 87 
136 Mini Disk Write Drive 88 
137 Mini Disk Read Select Interrupt 89 
138 Mini Disk CPU Hola 8A 
160 Floppy Disk Status AO 
161 Floppy Disk Readtrack Al 
162 Floppy Disk Readsector A2 
163 Floppy Disk Read Data A3 
164 Floppy Disk Read Command A4 
165 Floppy Disk Write Track A5 
166 Floppy Disk Write Sector A6 
167 Floppy Disk Write Data A7 
168 Floppy Disk Write Drive Select Ag 
169 Floppy Disk Read interrupt Ag 
170 Floppy Disk CPU Hold AA 
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S. P. 


YSTEMS 


-—- 788-8857 
N 3749) 


VAN NUYS, CALiES 


ELECTRONIC 5 


8250 VAN Nuys BLVD. 


DECIMAL  - IMS 550] I/O CHIP HEX 


Ist 5501 2nd 5501 Ast_ 5501 2nd 250) 

0 16 Read Serial Data in from RS-232C 0 10 
Interface 

1 17 Read Parallel Data from keyboard 1 11 
or 2nd 5501 

2 : 18 Read Interrupt Address on TMS 5501 2 12 

3 19 Read Status on TMS 5501 3 13 

20 Issue Discrete Command 4 14 

5 21 Set Baud Rate on Serial I/O 5 15 

6 22 Transmit Serial Data to RS-232C 6 16 
Interface 

7 23 Transmit Parallel Data to 7 17 
keyboard or 2nd 5501 

8 24 Load Interrupt Mask Register 8 18 

9 25 Interval Timer #1 9 19 

10 26 Interval Timer #2 A 1A 

11 27 Interval Timer #3 B 1B 

12 28 Interval Timer #4 Cc 1c 

13 29 Interval Timer #5 D 1D 

14 30 No Function E IE 

15 31 No Function F 1 oF 

JOYSTICKES by Steve Ferrigqa 


and running some der 
my lection of joy 
Apparently, double 
roaneaus readir 
ather) 
just as use 
edo ooabouwt it 
at the logic behind 
; up the % 
that it 
fram OS ta g 
are mat 
sending 
single joy 
‘hig Ff 


Todi 
WENT E 
common v 


with a 
i echo 


or 


fire futtan 
the positiangs 
able an the 
review of the polling 
manent  f 


sed by 


z ; eq ato the 
maa which futtan acdedre 

aok and let me@ know what you think. Here 3 3 
sample basic listing (‘madification of the ane 
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S. P. 


ELECTRONIC SYSTEMS 


published) to read the keyboard. 


Of being able to return b 
a fire button closure 


for fast action games. 


feature 


The listing has an added 
_te oth a direction and detect 
“simultaneously* which would be goad 


DIRECTION CHR ASCII OUT (7) 


JOYSTICK CHARACTER INFORMATION TABLE 


oe re ee INF (1) 
7 FOR JOYSTICK ee 
B= FIRE s ; 
Ro : & 48 15) gr 254 FE 
Lz DOWN 2 bart 9] 1= AD 254 FE 
ae «(LEFT 3 52 11 9B A 
BS. te | g 254 FE 
as RIGHT 6 54 9 B9 254 FE 
eg UP 8 Sé 7 w7 254 FE 
35 FOR JOYSTICK 1 
5 FIRE a 65 14 AE 
DOWN fe &7 12. aC 
LEFT E 5? 1g ga 
RIGHT GB 7 8 8 
UF I 75 & BE 
1a REM READ JOYSTICK @ 
Bae REM READ JOYSTICK 1 
Sag REM 
51@ REM LINES 14% AND 2 CALL THE SUBROUTINE TO READ 
529 REM EACH JOYSICKE. A VALUE OF @ TO 9 WILL BE RETURNED 
S30 REM IN *T* AND A VALUE OF @ OR 5S WILL BE RETURNED 
549 REM IN °F* INDICATING THE FIRE BUTTON AS NOT DEPRESSED 
55a REM OR DEPRESSED, RESPECTIVELY. 
56a REM 
S71 REM 
igge QUT 8,247:F0R TM =1 TO 1@@: NEXT 
1919 TsO: Fae 
1928 OUT 7,13-0S: IF INF (i) =255-J3S THEN T=T-2 
193 OUT 7,11-dS: IF INP (1)=255-J3S THEN T=T+5 
1949 QUT 7,9-dG: IF INF (1)=255-J9 THEN T=T+7 
195e OUT 7,7-dS: IF INP (1)=255-3S THEN T=T+9 
1968 IF T=i® THEN T=T-é6 


17 
1g 
19 es 


T=ABS(T)-1:s IF T=-1 THEN T= 
OUT 7,15-JS: IF INP(1)=255—-JS THEN F=5 
QUT 8,255: RETURN 


Ston— This is wy own “Pelouttad” to my article nm FoRuny 
adsove the Auel joystels controller Look-up, + rowtnres. Tus 
system seems better— Whar de you Hunle? 


a 
trou a le fer 


Note - Has es 
fo Re/ 
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’ 
be 


te 


ICT Fa G RS 


2 


Gila 


& aliveays a 2ST, the l-pyte vorsion of SO 
an R&Turn to whatever it vas doling waen sir 
upc ST intstructiones, each of whicn CALLS 3 suoroutine 
ac a@ specific Leteon, called its Restart Location: R257 0's 2estai eae 2 
is ac vo0dn, AS? L's is at O008H ... did RST 7"S is at GOSSn. ff 
vill roally fit into the eight bytes between each location, inst: 
ations usually hold JilPs to the true subroutine locations. 


Event #5 on the list of nardware events is "R5-232 Transmit Surfer 
TH5-5501 ready for a character to transmit". The THS-5501 cuig causes an AST 5 
interupt wnenever it notices this condition, and avay joes tne CPU to 0028h. 
There is a catch however: the operating system usually leaves the 20hn-bit OFF 
whenever it sends a new “interupt mask" to the THS-5501 with an "OUT O8a". If 
you've guessed that 20h-bit tells tne THS-5501 whether or not to notice event 
45, you're right. If you were to send a new mask to the 5501 with the 20n-bit 
ON, the THS-5501 would immediately cause a RST 5 interupt and transfer control 
to the Ti.RDY Subroutine. TX.RDY sould check Gus = to find out what to do. 
Hormally OUT.FL holds 00h, telling £X.RDY to "“re-mask RST 5 and return.” 


Mot much helo so far, granted ... BUT if you first place a Olh in OU?.FL, 
then when you un-mask that 20h-bit, the Olh will tell TX.RDY to transmit XSCHA 
{ the Last Keyooard Character, I byte at S1FEh ] »oefore re-masking RST 5 and 
returning. Mow we're making progress ... Place 96n in OUT.FL and TX.RDY will 
jump via J.OUSR [ a JHP instruction at 81C2h ] each and every time its ready 
transmit another character, interupting BUT NOT ENDING whatever other program 
you may running at the same time until OUT.FL is changed from 06h. Hmm, does 
anyone have a print-spooler? 


Output flag 02h seems to have been where the <ESC> <C> facility used to be. 
It now leads to a JMP 0000h, which in turn leads to the main Power-Up Routine. 


The other Output Flags are used by XHT.PG [ the <ESC> <X> processor ] to 
control the <LF><CR> it transmits at the end of each line and the BOh it sends 


when it is finished. es . 
S. P. 


ELECTRONIC SYSTEMS 


5250 VAN NUYS BLVD.—788-8850 
VAN NUYS. CALIFORK! 91401 


is 


erStTO OCOUh 
S$RSEU 0003h 
0095h 
0905h 
0007h 
0008h 
000Bh 
00QDh 
90035h 
Ou0rhA 
O0013h GiiP 
00130 
N01dn 
OIJ1lSh 
GO17h 
901Sa 
0013n 
001Ch 
001Dh 
9015h 
0920h JP 
0023h 
0024h 
0027h 
0023n i 
002Bh 
0025h 
002Fh 
C033h 
0036h 
0038h 
003Bh 
0040h 
0043h 
0045h 02h 
904on 
0049h 
004Ah 
O04Bh 
0053h 
005Bh 
005Dn 


S. P. 


ELECTRONIC SYSTEMS 


6250 VAN NUYS BLVD. —788-8850 
VAN NUYS, CAUIFORN( 91401 


OD aie. 0 
ROLL. 0 
JeRSTL 


a7. SSC 
SND.PG 


J eR5 22 


TAU CIA 
PADD.) 
Oe Lae 
Dene ls 


AAOBEL 
x2, RPT 


yt 
RI.KE 


AREADY 
J.RST4 


J.KTST 


RT GY 
eae 


J. RST5 
OK.C 


J.BOUT 
S'TAK. 0 
J.RST7 


DEVO 

J. HAO 
D. DYPO 
D..:iBRO 
D.SCTO 


DPB1 
DPB2 


‘JiR 5 


tos fa Oe] 


Lo) 
my G2 Us 


"co 
a} 
coe ee 


O253hv: 
PFs 
JPO: ils 


fa) 
Cons 


Ch: 
OS04n: 
F4ns: 
O5Sh: 
rFh: 
BIFFhs 
O3BDh: 
40he 


O3B1eh: kK 


14h: 
O4B8h: 
0398h: 

O4ns: 

AOhs: 
O3B4h: 
8042h: 
O1BGh: 
050Dh: 
Bytes: 
LACLhs 
Bytes: 

O2h: 

OAn : 

50n: 
Xx PRR: 
x FFh: 
FFFFhHs 
Addrss 
O453hs: 
LF3Ehn: 
O7F7h: 
0452h: 
0453h: 
0453h: 
0452h: 
O51An: 
O2B7h: 
O2FAh: 


Filler 
Local 
Seroll 
uy mr. USR 
T.ESC 


BICLZOG 


8/158 
9509bda 


SVC .X3B 
-150ns 


16.3ms 
READY 
RX.AVL 


2252 
6.9ms 
TX. RDY 


HO.HUM 


“epo™ 
D.HANO 
u CD uw 
Ok, £2 
10 S/T 


Filler 
Filler 


IGN. KY 
SAUTO 

ST.PLT 
ST.FLG 
IGN.KY 
IGN.KY 
ST.FLG 
RG. BEL 
VC. HOM 
VC. TAB 


nou uu n 


buuu gd “udhabiuu a 


-Up Reset 


NKYanNs = 
inane antry 


Handler 
co BASIC TEM Gkeey 
ilode 
ilode 


Initial Terminal 
Initial Scrolling 
User-Tiner Routine 

ESC> Sequence Jump Taole 
Warks "End of Transmission" 


Prom <SSC> <is 


Real-Time-Clock Advance Routine 


Interval between Real-Tine-Clock Adva 
Initial Baud Rate 

THS-5501 Cand: "Enable Interupt Aci:novlege" 

Keyboard Polling Routine 

Starting point of Stop-the-3ell Count 
Repeat Key Rate 

Keyboard Polling Rate 

Xeyboard Character Ready Flag 

RS-232 Input Routine 


tnes 


down 


Fetch next keystroke character, if any. 
Interval Required for Disk to Step 1 Track 
RS-232 Output Routine 

Unidentified Return Vector from SVC.KB 
TMS-5501 Intrpt Mask: "OK: Clock" 


Interface for Output from BASIC 

Initial SP Value 

Main Thumb-Twiddle Routine 

Unidentified Return Vector from SVC.KB 
Initial Default Device 

Disk Type 0 Handler Routine 

Disk Type 0 Designation 

Disk Type 0 Number of Disks Installed 
Disk Type 0 lumber of Sectors/Track 
Referenced at 1BD9h, possibly a timing fctr 
Disk Type 1 Parameter Block 
Disk Type 2 Parameter Block 


Control Character Jump Table 


rude dnokuounan 


<*@> Handler <NULL> 
<°A> Handler <AUTO> S P 
<“B> Handler <PLOT> e , 
<°C> Handler <CUR-XY> ELECTRONIC SYSTEMS 
<°“D> Handler 5250 VAN NUYS BLVD.—788-888@ 
<“E> Handler VAN NUYS, CALIFORNI 91408 
<“F> Handler <SET CCI> 
<*G> Handler <BELL> 
<“H> Handler <HOME> 

Handler <TAB> 


<°T> 


16. 


ca 


Teer COTE. OSOSAS VE.d8 <*> Handler <Down Arrow> 
O5435s AES Lt <°XD> Handler 208 - Led 
0272Fh:s ER5.2G <*L> Handler Sino GD 
O228Bn: VC.CR <*H> Handler <RSuuResy 
H33sLis YC ws <*> Tandler 


LZ SUD 
uy AT OPP> CPP aweeS WD 


not in table 


<*O> Handler 
> Handler 
<°Y> Handler 
<*Z> Wandler 
<"t> Handler 
Handler <Up Arrow> 
<*]> Handler <FrG / FLG DEFT> 
<**> Handler 3G / PLG O%D> 
<*_> Handler <SLIU> 

<ESC> Sequence Juap Tavle 

(a) Handler 


O33Fh: VC.ATP 
O2ZEDAs CRO 
U2PEn: VEC.RT 
0339Rs VC? 
0452n: SE.ES 
O033Fh: VC.UP 
03¢4a:3 FLO 
0383: FL.OFF 
0383h: VC. Bik 

Y.ESC O008Bn 20n x Addrs: 

0453A: IGiL.RY 

045212 SE VPLS (A) Handler (3LiID) 

0446h3 SE.PLY (3B) Handler (PLOY) 

0453n2 IGNY = (C) dandler (iil? CuR) In Secs, not Pgn 

15FPh: FCS (5) ‘Handber. (Cecs) 

IF2Chs SRSERE C5) Handler  (€3S6C BSe 

OaAShs ST.DPX (F) Handler (DUPL SX) 

16F4h: FCS232 (G) Handler (FCS RS-232) 

O4A3hn: ST.ULF (H) Handler (1/2 DPLX 

$000h: UsrRAtl (I) Handler 

O4E7Hs STOVRT (J) Handier (VERTICAL) 

04DCh: ST.SCL (K) Handler (ROLL) 

O4A6h:3 ST.LCL (L) Handler (LOCAL) 

O447h: ST.232 (fi) Handler (TERI ilODE) 

0447h: ST.OFL (MN) Handler (SLSEP) 

0453h: IGH.KY (O) Handler 

4000h: lo Hen (P) Handler (CRY OP SYS) 

eh WU BLVD. 2888 Q453h: IGN. K (Q) Handler 

aii NUYS, +4 LEUEM S340) 0452h: ST.FLG (R) Handler (BAUD RATE 
AQ0O0h: UsrRAH (S) Handler ("ASi3") 
8200h: UsrRAM (fT) Handler ("TEK?T") 
0453h: IGi.KY (U) Handler 
0453n: IGi.KY (Vv) Handler 
1F25h: $BASIC (J) Handler (BASIC) 


04DDh: ST.PAG (X) Handler 
(Y) Handler (TEST) S, P. 


0452h: ST.FLG 
4300h: No Mem Handler (45 Di) 

0453h: IGN.KY = ([) Handler PEN RIERA il 
5000h: Wo Hen a wane (45 UP) VAN NUYS, CALIPSRNY SRACI 


5800h: No ilem 
(*) Handler (USER) 


81BFh: J.UINP 
OLA7h: J.CRT (_) Handler (CRT) 


uuu dau do ke bbb non td db net 
“aw 
> 
a 
Vv 


T.OFLG O00CDh 08h Addrs: Output Flag Jump Table See: 
O4B0h: TX.OFF Flag OOh: Turn off Xmtr "How to Use the 
O4AAh: TX.KB Flag Olh: Echo KB.CHR Tx Rdy Jmp Tb1" 


056lh: J.0000 
0569h: TX.COL 
059Ch: TX.CR 

O5A5h: TX.CO0O0 
81C2h: J.UOUT 


Flag 02h: [ Disabled ] 

Flag 03h: Xmit ((OUT.HL)) or <LF> if Col 00h 
Flag 04h: Xmit <CR> 

Flag 05h: Xmit ((OUT.HL)) even if in Col 00h 
Flag 06h: User Output Routine 


O5ADh: TX.EOP Flag O7h: Xmit "End/Page" , 
T.IFLG OODDh 20h Addrs: Input Flag Jump Table Next Flag 
0425h: OUT.VC Flag 00h: Output via Visable Cursor (00h) 
0405h: OUT.BC Flag Olh: Output via Blind Cursor (01h) 
0709n: OUT.PL Flag 02h: Output via Plot Routine (02h) 


Flag 03h: Select SETVCX(05h) / SETBCA(07h) 
Flag 04h: Output via Plot w/ Pad Rtn (04h) 
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0454n: ST.CU2. 
O86lh: OUT.PP 


uunkadndundundnanndbnnrnrdbnnnrnnnnnnnnnnnnn tana ka 
nN 


.f°hG cont. O4353n: ST.VCY Flag 05h: Set Visable Cursor Y Adur (00h) 
O44an: SPT.VCC Flag O6n: 3et Visable Cursor CCI (90a) 
0473h: S'T.BCX Flag 07h: Set Blind Cursor X% Addr (08a) 
O480h: SY.D5CY Flag O0@hn: Set Blind Cursor Y Adar (09h) 
0445h: ST.3CC Flag 09n: Set Slind Cursor CCI (90h) 


B1CShs J .ULAP 

31C5h: J.UINP 

0453n: IGi.KY 

, 1737ae INP.FC 

ae ae t momy 

oe ee 
a5Shns IGHeny 

ELECTRONIC SYSTEMS 31¢C5n: J.UIZIP 
5250 VAN NUYS BLVD.—788-8858 S1C5Sh: J.UINP 
VAN NUYS, CALIFORNI91401 -ACSh: ST.BDR 
SLC5a:2 J.ULEIP 

S1C5h3 J .UTIP 

81LE5H: 

SLC5: 

1P33a: 


Fiag OAms Xfer Char to User Imp Rtn (0An) 
Flag OBh: Xfer Char to User Ing Rtn (03h) 
Flag OCh: Ingore Character (9ChA) 
Flag ODh: Xéer to FCS Input Routine (ODh) 
Flag OEh: Output via RS-232 Tx Line (0Ha) 
Flag OFh: Ignore Character (OFh) 
Flag 10h: Xier Char to User Inp Rtn (19h) 
Flag llh: X£er Char to User Inp Rtn (11h) 
Flag 12h: Set Baud Rate (00h) 
Flag 13h: Xier Char to User Inp Rtn (13h) 
Flag 14n: Xier Char to User Inp Rtn (14h) 
Plag 15ns Kier Char to User Inp Ren (115A) 
Flag 15h: Xéeor Char to User Ind Rtn (Lon) 
Flag 17h Kier Char to BASIC Inp: DEN. CLA) 


[] a |e | YO | YO | YT | | | 


SLCoiis Flag 18h: Xfer Char to User Inp Rtn (18h) 
O27An: Plag 19n: Xfer Char to Screen-Fill R (00h) 
81C5h: Flag 1lAn: Xzer Char to User Inp Rtn (1Ah) 
0501n: Flag 1Bh: xfer Char to <ESC> Seq Rtn 

31C5n: J.UINP Flag 1Ch: Xier Char to User Inp Rtn (1Ch) 
#1C5n: J.ULIP Flag 1Dh: Xfer Char to User Inp Rtn (1Dh) 
81C5h: J.ULiIP Flag lEh: Xfer Char to User Inp Rtn (18h) 
SLCSns a .ULHP Flag 1Fh: Xfer Char to User Inp Rtn (1Fh) 


011Dh O3hn x FFhs: Filler 
0120h JNP OAADK: 
CREISG 0123h 17h bytes: Text 
; 013Ah 10h x FFR: Filler 
SCPYRT O14An 5Dh bytes: Text 


Puroose Unknown: "MVI B,03n RET" 

CRT ilode Greeting, w/ EFh Deliiniter 

Could be used to extend CRT Greeting 

BASIC Greeting & (c) Notice w/ 00h Delimiter 


ioueu a 


5 PID. 728.8859 


=== Executable Routines for Ver 3.79 === OM! Se4gT 


ST.CR@: OLA7h Entry: Action: Transfers control to the CRT Hode Software 


=SHO=RETURN= 


HO.HUM: 0136h Entry: Action: Infinite Loop = ‘fThumb-Twiddler for ilain Exec 
=NO=RETURN= 


PYR.UP: O1ABh Entry: Action: 1) Compares PUP [81B7h] to the constant 97h... 
=NO=RETURN= 2) Ii EQUAL: performs a Warm Start and exits 

to ST.CRT [81A7h] 
3) If UNEQUAL: performs a Cold Start, Setting 
PUP to 97h, and exits to $RESET 
[at 1F38h, pointed to by 0903h] 
Note: 97h = 1001 Olllb, which is a bit pattern 
which RAM memories do not usually assume 

when just-powered up. 


1% 


GET.V2: 


O24An Sntry: 


= ae ag 


ELEC? !:(0)NIC SYSTEMS 


6250 VAN NUYS BLVD.—788-8858 
YAN NUYS, CALIFORNI 91401 


Sntry: 


O274h Entry: 


=[]0=RETURN= 


O2F7n Entry: 


=HO=RETURI= 


BC.HOH: O2ADh Entry: 
=HNO=RETURM= 
VC.HOM: O2B7h Entry: 
=HNO=RETURIT= 
ve.CR: O2BBh Entry: 
=HO=RETURW= 
XQTSCN: O2C2h Entry: 


Actions: 


Result: 


Actions 


Actions: 


Actions 


Actions: 


Actions: 


Action: 


Fetcnes Visable Cursor Data from Scratch Pad ilen. 
Si = [ uncranged ] | 

A = [ unchanged ] 

B = Visable Cursor X Address { 002 see SFr J 
C = Visable Cursor Y Address T O00) se« LP J 
) = Visadle Cursor A7 3yv 

B = Visable Cursor CCI Status 

HL = Screen RAi Addr corresjonding to Vis Cur xXay 
Sv = [ uncnanced ] 

A = [ unchanged ] 

B = Visable Cursor X Address [f 000 s2« 3Fa) ] 
C = Visable Cursor Y Aicicdress [ 00; «20 BEA J 
DS = [ unchanged ] 

Wm = Screen RA Addr corresponding to Vis Cur ZeyY 
Tnerements tne Real-Time-Clock Reyisters 

Fills Screen with Test Char: (SC), (¥) Sequence 


S. P. 
ELECTRONIC SYSTEMS 


6250 VAN NUYS BLVD.—788-8858 
VAN NUYS, CALIFORNI 91401 


Homes BOTH Cursors and un-scrolls screen. 


Homes Visable Cursor. 


Returns Visable Cursor to Left ilargin. 


Action: Xmits Cursor/Scroll Commands to SMC-5027 CRT Cnip 
Parms: C = New X-Addr for Visable Cursor [00h...40h] 
B = New Y-Addr for Visable Cursor [00h...1Fh] 
(81CDh)= New R-Addr for CRT Top Line [O00h...1Fh] 
Output: SW = [ lost ] 
A = [ lost ] 
BC = [ unchanged ] 
DE = [{ unchanged J 
HL = [ lost ] 
(81CBh)= New X~Addr for Visable Cursor 


(81CCh)= New Y-Addr for 
(81CDh)= [ unchanged ] 
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Visable Cursor 


THIS IS THE SECTION OF TOM HUDSON’S ARTICLE OMITTED IN THE LAST ISSUE 


A GRAPHICS CLIPPING ROUTINE BY TOM HUDSON 


10 REM SF IS INITIAL SIZE FACTOR 


50 REM SI IS STEP INCREMENT — AMOUNT TO INCREASE SIZE EACH DRAW cyeze 


60 SI= 1.1 
70 REM RF IS ROTATION FACTOR — RADIANS TO ROTATE EACH PHASE 
80 RF= .1 


90 REM CX AND CY ARE CENTER COORDINATES OF OBJECT ON SCREEN 
95 CX= 64:CY= 30 

110 PLOT 12 

130 READ N:REM N = # POINTS IN OBJECT 

150 DIM X(N), Y(N),X2(N), Y2(N) 

170 FOR X= 1TO NsREAD X(X),Y(X)2X(X)= X(X)® SF2Y(X)= V(X) & SFsNEXT X 
190 FOR RW= OTO 6.28STEP RF 

210 FOR X= 1TO NzX(X)= X(X)® SISY(X)= V(X) SIENEXT X 

230 FOR X= 1TO NeXW= X(X)* COS (RW)+ Y(X) SIN (RW):YW= — X(X)% SIN (RW)+ Y 
(xX) COS (RW) 

250 X2(X)= XWR .75+ CX:Y2(X)= YW+ CY 

270 NEXT X 

300 FOR X= 1TO N- 1:X1= X2(X)sVi= Y2(X)2X2Z= X2(X+ 1)2YZ= Y2CX+ 1)2GOSUB 100 
O:NEXT X 

310 X1i= X2(N):YVi= Y2(N)2:X2= X2(1):2Y2= Y2(1):2GOSUB 1000 

320 NEXT RW 

400 GOTO 190:REM LOOP FOREVER 

500 DATA 4,10,10,10,-10,-10,-10,-10, 10 

999 REM THE 1000 & 2000 ROUTINES CLIP THE SHAPE 

1000 Li= O:L2= O:Ri= O:R2= O:T1i= O:T2= O:Bi= 0:B2= 0 

1005 IF Xi< OTHEN Li= 1:GOTO 1020 

1010 IF X1> 127THEN R1= 1 


1020 IF Y1< OTHEN Bi= 1:GOTO 1040 S. P, 

1030 IF Y1> 127THEN Ti= 1 vereMa 
1040 IF X2< OTHEN L2= 1:G0TO 1060 ELECTRONIC S 

1050 IF X2> 127THEN R2= 1 5250 VAN NUYS BLVD.— 788858 
1060 IF Y2< OTHEN B2= 1:GOTO 1080 VAN NUYS, CALIFORN! 91 


1070 IF Y2> 127THEN T2= 1 

1080 IF Li+ L2= 20R Ri+ R2= 20R Ti+ T2= 20R Bi+ B2= 2THEN RETURN 

1090 X3= XisY3= Y1:X4= X2:Y4= Y2:GOSUB 2000 

1095 Li= L2:R1i= R2:Ti= T2:Bi= B2 

1100 Xi= XW:Y1= YW:X3= X2:Y3= Y2:X4= X1:Y4= Yi:GOSUB 2000 

1110 IF Xi< OOR X1> 1270R Y1i< OOR Y1i> 1270R XW< OOR XW> 1270R YW< OOR YW> 1 
27THEN RETURN 

1120 PLOT 2,X1,Y1, 242, XW, YW, 255: RETURN 

2000 IF Li+ Ti+ Ri+ Bi= OTHEN XW= X3:YW= Y3:RETURN :REM OK, ON SCREEN 

2100 IF LITHEN XW= O:YW= Y3+ (Y4— Y3)% (— X3)/ (X4— X3)2X3= XWiYS= YWiIF YS 
= > OAND Y3< = 127THEN RETURN 

2110 IF RITHEN XW= 127:YW= Y3+ (Y4— Y3)% (127- X3)/ (X4— X3)2X3= XW2YS= YWs 
IF Y3= > OAND Y3< = 127THEN RETURN 

2120 IF BiTHEN YW= O:XW= X3+ (X4— X3)* (- Y3)/ (Y4— Y3):X3= XW:Y3= YW:IF X3 
= > OAND X3< = 127THEN RETURN 

2130 IF TiTHEN YW= 127:XW= X3+ (X4— X3)* (127— Y3)/ (Y4— Y3):X3= XWsY3= YW: 
IF X3= > OAND X3< = 127THEN RETURN 

2200 RETURN 

READY 


20 


FCS)PRINT CONPAC 


y 

j BASIC FILE SPACE REMOVAL UTILITY 

j Vr. G8 

j 

} ### INTECOLOR 8881 V2.79 & V5.79 SPACE REMOVER V1.90 ¥## 


j #####¢% COMPUCOLOR I] V6.78 SPACE REMOVER V1.00 t#8ettte 


j eeeteeeee MODIFIED 7/31/79 JKP II] teeeteteet 


b] 
4 
’ 
’ 
b 
7 BARHEHHEE EEE 
5 FetEEEEEEE MODIFICATIONS AND REVISIONS #eteeeeeeeeeteet 
jt 
3 * 9/11/79 MODIFIED FOR COMPUCOLOR II - ¥4.78 
;# CI’ INCLUDEDS JKP ITI 
$ # 9/14/79 INITIALIZE DROPS’ COUNTER 
i # 6/8/79 MODIFIED FOR CONDITIONAL ASSEMBLY FOR 
i # BOTH COMPUCOLOR II 4.78 AND 
;# INTECOLOR V2.79 AND V5.79 
3 # 6/11/79 SIMPLIFY °CI’ ROUTINE JKP III 
j # 6/25/79 IMPROVE *BACKSPACE’ ROUTINE, INCLUDE 
i* BREAK’ ROUTINE (FCS), RE-INSTITUTE 
; # *CHRINT? = JKP III 
# 6/28/79 ADD CAPABILITY FOR DIFFERENT SOURCE AND 
i # DESTINATION FILES JKP III 
5 # 7/18/79 ADD ’EXPERINENTAL’ OPTION JKP III 
§ # 7/31/79 RELEASED TO INTECOLOR JKP III 
i* 5R-B688-221 972888 COMPAC.PRG V1.8 
ED TO COMPUCOLOR JKP III 
" "2; 972061 COMPAC.PRE V1.88 # 
ase ee # 
cee PEEEAEEEEEEEE PEER EE EERE EEE EEE 


ee ee 


+ ONFIGURATION? 


- oho? f= INTECOLOR 8881 2.79 & V5.79 
wINi 2 - COMPUCOLOR Il ¥6.78? 

PRIN 7° 

«PRINT CRT TYPE ? 

J INPUT CRTYFE 

»PRINT 7? 

«PRINT *? 

»PRINT "EXPERIMENTAL VERSION (B=NO, 1=VYES) ” 
«INPUT EXPHNT 


.PRINT ?? S, P. 


ELECTRONIC SYSTEMS 


8250 VAN NUYS BLVD.—788-3858 
WAN NUYS, CALIFORNI 91401" 


LO 
OSTR 


EMESS 
PFSPC 
RESET 
OPEN 
RWSEQI 
INSEQO 
CLSEGO 
GTBYT 


PTBYT 
GETTO 


INPCRT 
KBDFL 
KBRDY 
KBCHA 
KEYTST 
ADHLA 
CMPHD 
CNPDH 
ACRTSP 
LOFL 
ESCDX 
BEGIN 


bf 
PRORG 


LO 
OSTR 


EMESS 
PFSPC 
RESET 
OPEN 
RWSEQI 
INSE@O 
CLSEO 
GTBYT 
PTBYT 
GETTO 


INPCRT 
KBDFL 


Z| 


»PRINT ?’ 
ENDIF 


IF CRTYPE EQ 2 
fi 
## SYSTEM ADDRESSES ## 
EAU 8266H = #* COMPUCOLOR I] 4.78 ## 


EQU 3392H = §SEND CHAR TO SCREEN 
EQuU SSF4H = jSEND STRING ENDING WITH 239 


EQuU 262DH = §FCS ERROR SUBROUTINE 

EQU 3877H = §PARSE FILE SPEC 

EQU 26A5H 

EQU 2DABH =; OPENS A FILE 

EQu SOChH =F REW SEQ FILE 

Eau S8E7H = SINIT SEQ OUT FILE 

Eau S136H = §CLOSE NEW SEQ FILE 

Eau 322CH = § GET SINGLE BYTE FROM FILE 


EQu S24AH = §PUT BYTE ON FILE 
EQu 2C@CH = GETS A *T0’ 


EQu 81C5H =; JUNP VECTOR NUMBER 31 

EQU 81DFH sHOLDS NUMBER OF JUMP VECTOR 
EQU B1FFH  §KEYBOARD FLAG (READY) 

EQU B1FEH ;CHAR FROM KEYBOARD 

EQU §824H $KEYBOARD :CANNER (KEYTEST) 
EQu S518H = FADDS A 1G HL WITH CARRYS 

EQU S44DH = SCOMPARE FUR HL <=> DE (C,Z,#) 
EQuU S453H — jCOMPARE FRO DE <=> HL (C, 2,8) 


Eau §O36H = 57! | TACK (CPUSP) 
Ep AOR FS ee AG 
bu SZu+: “ et 


EQU 3768H jas: 
ELSE 
EQu GA12GH 5 ## INTECDLOR 8081 2.79 & V5.79 #t 


Eau 1E27H SEND CHAR T0 SCREEN 
EQu 1E58H SEND STRING ENDING WITH 239 


EQU 2123H = §FCS ERROR SUBROUTINE 

EQu 2D4AH =; PARSE FILE SPEC 

Eau 219BH 

EQU ZA6DH =; OPENS A FILE 

EQU 2D99H = §REW SEQ FILE 

EQu 2DBAH =; INIT SEQ OUT FILE 

EQu 2E69H CLOSE NEW SEQ FILE 

EU ZEFFH GET SINGLE BYTE FROM FILE 
EQU 2FiDH = §PUT BYTE ON FILE 

EQu 28BSH = GETS A * TO’ 


EQuU 9F99H — §JUNP VECTOR NUMBER 31 (INCRT2) 
Eau 9FF9H © jHOLDS NUMBER OF JUHP VECTOR 


PAGE PAGE 

KBRDY EQU © 9FFCH —$KEYBOARD FLAG i 
KBCHA EGU © 9FFBH CHAR FROM KEYBOARD j ### SETUP FOR CI’ ¥e# 
KEYTST EQU © 21E2H KEYBOARD SCANNER AVI AA3I ; SETUP JUMP VECTOR 431 
ADHLA EQU © 1FOFH ADDS A TO HL WITH CARRYS STA KBDFL 3 TO INPCRT 
CMPHD QU © 1EA4H = $COMPARE FOR HL <=> DE (C,Z,8) AVIA, @CSH ; LITERALLY 7 JMP? 
CMPDH EBU © 1EAAH ~=©; COMPARE FOR DE <=) HL (C,2,8) STA ——INPCRT 
ACRTSP EQU  @B8EH TOP OF CRT STACK LYT =H, CHRINT ; 7JMP? ADDRESS 
LOFL EU © 9FB4H SYSTEM OUTPUT FLAG SHLD INPCRT+1 
ESCDX EGU © 2688H ESCAPE D ENTRY POINT TRA A 
BEGIN EGU § 1808H ;START OF CRT CODE STA KBRDY ; READY FOR CHARACTER 
; REE 

ENDIF j 
LX Hy CRLF ; CR/LF FIRST 
; CALL OSTR 
j ## COMMON EQUATES ## LY H S608 ; PRINT STARTUP MESSAGE 
; CALL OSTR 
TINXS EQU © @018H KEYBOARD INTERRUPT VECTOR i 
. CALL SETUP } INITIALIZE FILES 
FOPT QU ; 
FATR EQU NEXT: CALL BRKTST ; CHECK FOR BREAK? JKP 4/25/79 
FNAM = EQUSti«D J CONINT j IF 7Z? FROM "BRKTST’, ABORT 
FIYP EQU 8 i 
FVER ERU 1! CALL GET 
FSEK EQU 12 STA LINE 

MN 
FSIZ EQUA = 8. CALL GET 
FLEC EQU 16 FE e STA —LINE+L 
FlaD = EQU 17 en lz CFI g 
FSAD = EQU. 19 A ass J LAST  $HIGH ORDER NEXT ADD @ ON LAST LINE 
FSPR = EQU S21 Ons CALL GET 
eZ gs STA LINE#2 

FDBK EQU 2 ws Bu 2 
FDEN —-EQU 2 = ze STA NEW+2 
FAUX = ERUS2A Fz CALL GET 
FHAN Feu 2 fa 5° STA LINE+3 
FFCN EQU 28 a STA NEW+3 
FDRYV EQU 29 LXI—-B,LINE+4; BEGINNING OF BASIC LINE 
FBLK - ERU 39 READLP: CALL GET 
FBUF EQU 32 STAX B sSTORE CHAR 
FXBC = EQU S34 CPI og {SEE IF LAST CHARACTER 
FPTR EQU 38 q CLEAN 317 IS 
EMFN EQU 15H $MISSING FILE NAME ’ INK E 
: JMP = READLP 
: ## SPECIAL CONTROL CHORACTERS ## CLEAN: LHLD DROPS RUNNING COUNTER OF REMOVED 
XCHE ;°DROPS’ COUNTER IN DE 
CTRLB EGU 2 CONTROL B LXI Hy LINE+4; BEGINNING OF OLD LINE 
CTRLC  EQU 03 SCONTROL C LXI B,NEW+4 }BEGINNING OF NEW LINE 
CR EQU 13 CLOOP: MOV A,M 
LF EU 18 cP 34 ;QUOTES 
FF EU 12 C2 aH FSPACES WILL STAY 
; CPE? ? 
i SH iSPACES WILL GO 
Piiirtrrrtiretititrrrttitrrrrtti rt CPI 142 REMARK 
J REN 

ORS —- PRORG STAY -B ;CHARACTER 18 GOOD 
CFI og ;LAST ONE? 
; #* START OF PROGRAM ## dv FLUSH = jHRITE LINE 
; INN oH 
START: LXI SP, STACK ; SETUP RUNOFF STACK INK OB 


. PAGE Hb 


JMP CLOOP ; 
Sut INX H 760 TO NEXT CHAR p SREEEEELELE LEE EERE ELE RELL EEE RHEE EEE SERA EERE REELS RES 
DCX D UPDATE COUNTER 3FCS BREAK TEST = JKP III 6/25/79 
JMP CLOOP j 
QM: STAX B ;STORE CHARACTER BRKTST: CALL —-KEYTST ; 60 SCAN KEYBOARD 
INX H LDA KBRDY 5 LOOK FOR ’ BREAK’ 
INX B CPI SGH } "BREAK? KEY 
HOV AM ;GET NEXT ONE ny BRKTST 3 HANG ON ’BREAK? 
CPI at $CLOSING QUOTE? i 
RZ - $YES,60 HOME LDA KBCHA ; GET CHAR 
CPI 8 ;END OF LINE? CPI CTRLB 3 CONTROL B ? 
RZ 60 BACK FOR FLUSH PUSH = PSW } SAVE CHAR 
dMP QM XRA A 
FLUSH: LHLD LINE ;GET OLD ADDRESS STA KBRDY j CLEAR KEYBOARD READY FLAG 
DAD D sADJUST FOR REMOVES STA CHARIN 3 CLEAR CHARACTER 
SHLD ~NEW POP PSH 
HOV H,D sHLI=DE WZ BRKTST 3 HANG ON CONTROL B 
HOV LE j 
SHLD DROPS SAVE ADJUSTMENT CPI CTRLC ; CONTROL C ? 
LXI B,NEW POINT B AT START RZ 3 RETURN WITH Z TO ABORT 
LDAX B CPI LF 5 LINEFEED ? 
CALL = PUT RET j EXIT SETS ’Z’ FLAG TO ABORT 
INX B j 
LDAX B f REFELESHAE EERE LASS L ALE EELS ELLE EARLE REE ERE EERE AREER RETR ES 
CALL = PUT iFIRST 4 BYTES gx. H a 
INX B ¥ LOOPE2: JMP ERROR i 
LDAX B § i 
CALL = PUT i Re LOOPE1: JZ EOF AT END OF FILE - CLOSE QUTPUT 
va : A a ai IMP ERROR 
Sat j ; 
CALL = PUT oS z £ § SETUP: LXI Hy MS681 } DISPLAY PROMPT 
INK B zg CALL OSTR 
WRLOOP: LDAX 8B 5 = = CALL RESET j RESET DISK IF ERROR 
CALL PUT b sz ; 
CPI § LAST ONE . 8 ;BEGIN USER INPUT SECTION 
du NEXT 3D0 NEXT LINE H 
INX B LXI H, BUFFER } POINT AT BUFFER 
INP WRLOOP Lg2: CALLE ; READ FROM CONSOLE 
LAST: = NVI A,8 CPI CTRLC 3 1S IT A CTRL C ? 
CALL = PUT na CONINT 3# YES, EXIT FOR CONSL INTERRUPT 
NVI Ayo CPI 13 j 15 IT CR? 
CALL = PUT J Xa2 3 YES, 60 PROCESS CR 
dMP EOF CPI 26 j 18 IT BS ? 
REM: = STAY. —siB ;SAVE REN JZ 6821 3; YES, 60 PROCESS BACKSPACE 
INX B j 
INX H CPI 11 } ERASE LINE ? 
NOV AM ny SETUP 3 PROMPT AGAIN 
CPI § 3SEE IF LAST CPI 127 3 DELETE CHAR ? 
UNZ REM au 6821 5 SAME AS BACKSPACE 
STAX B 3SAVE LAST j ; 
JHP FLUSH = jEND OF LINE EXIT CPI 91 3 19 17 A’7Z? OR LESS ? 
GET: ~=—LXT H, FPBL INC L82 ; IF NOT, BAD CHAR 
CALL GTBYT CPI 32 } 15 IT SPACE’ OR GREATER ? 
RET I L82 j IF NOT, BAD CHAR 
PUT: LXI H, FPB2 H 
CALL PTBYT NOV HA 3 STORE CHARACTER 
RET CALL LO 3 ECHO CHARACTER 


6821; 


X92: 


INX 
UMP 
; 
LXI 
CALL 
ONC 
NVI 
CALL 
NVI 
CALL 
AVI 
CALL 
DCX 
JMP 
j 
MYI 
NVI 
CALL 
AVI 
CALL 


’ 


sEND OF 
; 

LXI 

LXI 

LXI 


CALL 
uC 


PAGE 


» 


PAGE #8 
INRA ; NEXT ’VERSION’ NUMBER 
Hoy HA ;STORE NEW VERSION NUMBER 
’ 
POP oH ;RESTORE POINTER TO EOL OR °10’ 
HOV AM iSEE IF EDL © JKP 6/28/79 
ANA A 
CNZ NHNAME ;PARSE NEW NANE 
LYL Hy FPB2 ; POINT AT OUTPUT FILE 
HVT Aydt ; SETUP AS °NEW? FILE 
a 
CALL OPEN ; OPEN THE "NEW? FILE 
Jc Eg2 
LXT Hy IBUF ; POINT AT INPUT BUFFER 
SHLD FPRI+FBUF SAVE INPUT BUFFER ADDRESS 
LYI Hy OBUF POINT AT QUTPUT BUFFER 


SHLD = FPB2+F BUF 
LXT H, 1624 

SHLD = FPBI+FXBC 
SHLD —- FPB2+F XBC 


SAVE OUTPUT BUFFER ADDRESS 
SETUP BUFFER SIZE 

SAVE INPUT BUFFER SIZE 
SAVE OUTPUT BUFFER SIZE 


3 

’ 
LXI H,FPBI 3 POINT AT INPUT FPR 
CALL = RWSE@I j REWIND INPUT FILE 
LXI H, FPB2 3 POINT AT OUTPUT FPB 
CALL —sINSE@O § INITIALIZE QUTPUT FILE 
RET 3 RETURN 


sADD FOR DIFFERENT SOURCE AND DESTINATION FILE NAMES 
3 KP ITT 6/28/79 


CALL = GETTO ; LOOK FOR ’70’ 

NZ NWNMER i IF NO *TO’, ERROR 

LXI D,FPB2 3 POINT AT NEW FPB 

LXI B, DEFAULT 3 POINT AT DEFAULT QUTPUT TYPE 
CALL = PSPC } PARSE NEW NAME 

RNC _ 5 NO ERROR 

HOV A,B 3 GET ERROR CODE 

CPI EMFN } ’MISSING FILE NAME’ 

R2 ; USE OLD NAME, DEFAULT TYPE 
POP H ; POP OFF RETURN ADDRESS 

JMP E@2 } PRINT ERROR AND RETRY 


J 


j REFERELHRERAH AREAL EARLE REE EERE REALE REALE REE EEE H ER ERED 


H ; BUMP POINTER 

182 } CONTINUE LOOP 

D, BUFFER ; GET ADDR OF *BUFFER* 

CHPDH ; 1S POINTER AFTER BUF BEGIN 

SETUP ; IF NOT, PROMPT AGAIN 

A,2 } ’BACKSPACE? 

Lo 

Ay? ? ; SPACE OVER LAST CHAR 

Lo 

A, 26 ; ANOTHER ’ BACKSPACE? 

LO 

H 

Lg2 ; CONTINUE LOOP 

Hd ; INSERT TERMINATOR 

A,CR } PRINT CARRIAGE RETURN 

Lo 

AyLF ; LINEFEED SEQUENCE 

LO 

INPUT SECTION 

Hy BUFFER ; POINT AT BUFFER 

D,FPBL ; POINT AT INPUT FPR 

B, DEFAULT ; POINT AT DEFAULT TYPE 

PFSPC } PARSE FILE SPEC 

EA2 ; IF CARRY THEN ERROR 

NWNAME: 

H ;SAVE POINTER TO EOL OR °T0” 
JEP 4/28/79 

HyFPBI + POINT AT INPUT FPB 

Aya } SETUP AS "OLD? FILE 

HA 

OPEN ; OPEN THE ’OLD’ FILE 

Eg2 

HyFPBI + COPY FPB1 10 FPR? NHNMER: 

D, FPR2 

B,38  }MAX NUMBER OF CHAR IN FILE SPECS 

AM 

D 

H 

D 

R 

Lg3 CHRINT: 

HyFPR2+FTYP ©; POINT AT OUTPUT TYPE 

MB? ; STORE °B? 

H 

Nea? ; STORE °A 

H 

4,79? ; STORE °5° 

H 

D,FPBI+FVER  $POINT AT OLD VERSION NUMBER CFIN: 

D 


24 


SCHARACTER INTERRUPT ROUTINE 
iTHIS IS VECTORED TO FROM THE KEYBOARD 
SINPUT ROUTINE THROUGH *INPCRT’ JKP 6/25/79 


5 


PUSH =H 

PUSH = -PSW 

LXI H, CHARIN ; LAST CHAR FROM KEYBOARD 
XRA A 

CMP M i; IS LAST CHAR NON-ZERO ? 
NZ CFIN ; LAST CHAR NOT YET TAKEN 
HOV A,E ; CHARACTER 

ANI 127 i MAKE ASCII 

MOV NA } STORE ASCII CHAR 

POP PSH 


pop S, P, 
ELECTRONIC SYSTEMS 


8250 VAN NUYS BLVB,—788.eg50 
VAN NUYS, CALIFORNI 9164 


CHARIN: 


PAGE £ 


EI i ENABLE INTERRUPTS 

RET 

j 

DB 8 3 INPUT CHAR STORAGE (INIT 8) 


sy 


f RERERESHRAEEREE EERE LEE ELAR ERASE ERELE SEES 


CI: 


CI ROUTINE 
sTHIS READS A CHARACTER 
jAND ESCAPES FROM A HUNG PROGRAM 


EI sENABLE INTERRUPTS 

LDA CHARIN GET CHAR 

CPI § jHAVE CHARACTER? 

au Cl IF NOT, HANG FOR CHARACTER 
i 

PUSH = PSW iSAVE CHAR 

XRA A 

STA KBRDY CLEAR KEYBOARD READY FLAG 
STA CHARIN jCLEAR CHAR ’ BUFFER’ 

POP PSW 

RET sECHO CHAR FROM MAIN ROUTINE 


p RERERELEREES REE LAER EARLE HEEL H ERE REESE EEE 


j 
E92: 


j 
ERROR: 


EXIT: 


5 
EOF: 


i 
CONINT: 


MSEBO: 


CALL =—EMESS } EMIT ERROR MESSAGE 
MP SETUP 3 READ NEW LINE 
LXI H,MS602 } PRINT ERROR MESSAGE 
CALL  OSTR 
NVI Bo j} SETUP NO ERROR 
; 
XRA A 
STA LOFL 5 TURN OFF PRINTER 
LHLD = ACRTSP GET STACK POINTER 
SPHL 
LXI H,KBDFL § POINT HL AT INPUT FLAG 
LXI D,BEGIN § START OF CRT CODE 
PUSH =D 
3# ASSUME POWER-UP FLAG IS SET 
oMP ESCDX 5 JUMP TO ESC D CODE (FCS) 
LXI H,FPB2 § POINT AT OUTPUT FILE 
CALL  CLSE@O 3 CLOSE OUTPUT FILE 
NVI Bg 3 SETUP NO ERROR 
JMP EXIT 
LXI H, MSG83 } CONSOLE INTERRUPT MSG 
CALL © OSTR 
AVI Bd ; SETUP NO ERROR 
JMP EXIT 3 GO EXIT 
### MESSAGES ### 
IF CRIYPE EB 2 
DB 18,11, COMPUCOLOR IT V6.78 ’ 


ELSE 


NSGOB: 


2 
' 


! 
NSGB1: 
NSG82: 
NSG83: 
CRLF: 


$ 
DEFAULT: 


5 
EOC 


y 


j 
BUFFER: 
IBUF: 
OBUF: 


j 


STACK: 


s 
FCSSP: 
FPBI: 
FPR2: 
LINE: 
DROPS: 
NEW: 


i 
EOP 


5 
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DB 18,11,’ INTECOLOR 8601 V2.79 & V5.79 ’ 
ENDIF 


DB 21,’SPACE REMOVER ’,22,7V1.98" 


S. P. 
ELECTRONIC SYSTEMS 


6250 VAN NUYS BLVD.—788-8858 
VAN NUYS, CALIFORMI 91401 


IF EXPMNT E@ 1 
DB 17,” EXPERIMENTAL’ 
ENDIF 


DB 13,18, 239 
DB 19,11, °COMPACT>? , 18, 239 

DB 17,’HARDWARE ERROR !?, 13, 19,239 

DB 13, 18,17, CONSOLE INTERRUPT !7, 13,19, 239 
DB 13, 19, 239 

DB "BAS? 

EU 

IFPI 

.PRINT SAVE FROM ’,PRORG,’ 10°,$ 

.PRINT ?? 

ENDIF 


### DATA AREAS ### 


DS 256 

DS 1924 INPUT BUFFER 
DS 1924 = ;QUTPUT BUFFER 
0S 198 sSTACK AREA 

DS 2 

DS 2 sFCS STACK POINTER 
DS 38 j INPUT FPB 

DS 38 ;OUTPUT FPB 

DS 168 SLINE STORE 

DE $,9 DROPS’ COUNTER 
DS 169 NEW LINE 

EQU $ 

END START 


Ss. P. 
ELECTRONIC SYSTEMS 


5250 VAN NUYS BLVD.—788-8858 
VAN NUYS, CALIFURNI 9248) 


sP 7! : 
Welle Ba, of Startrek. This version includes such items as DOC, NAV, 


SRS, LRS, PHA, TOR, SHE, DAM, COM. The computer contains 6 different 
commands and the program is well illistrated. In addition to the super 
TREK program OIL a board type game also appears. You may note from the 
menu that the disk is very full with only 13 block left over 

PRICE $26.99 


DIRECTORY CD@: STARTREK a ef 7l 
ATR NAME TYPE VR SBLK SIZE LBC LADR SADR 


93 SSKDSP.DSP391 9996 gaza BG 78GB 7O9D 
@3 SSKINS.BAS;@1 9626 9947 7E C29A ASi18 
®3 SUPSK2.BAS;91 996D S98F 34 829A C9ICE 
83 OIL -BAS391 G@FC 9959 1D 829A AEB7 
3 OILCO .DSP391 9155 gg2g Ba 7BGG 7BSG 
®3 MENU .BAS;@1 9175 gage 4E 829A 86468 
@1 <FREE SPACE> @17D g@13 


INVENTORY 3 wvo1ecing SP27 
This is another one we can’t guarentee but we have traded and sold 


( at a much higher price ) a number of copies of it already. In the 
past, in general, we have not talked this Program up much but have saved 
it for the people who purchased their machines thru us. It is a very 


extensive program with quite a number of files and at the price being 
offered it is quite a bargain. 
PRICE #49. 99 


DIRECTORY CD@: INVENTORY 93 
ATR NAME TYPE YR SBLK SIZE LBC LADR SADR 


O3 MENU .BAS}@1 9803 BO4F GE 829A B9AG 
OS WIN .RND;@1 9872 9032 88 9864 g949 
83 INV .RNDS@1 8OA4 8932 88 9864 9949 S 

03 NBB  .RND}91 80D @B1E 86 064 9624 P ° 

03 BOF .RND3@1 9OF4 BO1E 88 9864 ga24 ELECTRONIC SYSTEMS 
O3 NIN .RND}1 0112 980E 86 9819 Ao4G 5250 VAN NUYS BLVD,—7a8 

03 BOR .RND}1 6128 OO1E 86 9864 9024 VAN NUYS, CALIFORNI 91404 
Bi <FREE SPACE) 13E #852 


I am generally not in favor of presenting program printouts in this bulletin 
unless they either represent unusual ISC related programing or demonstrate 

the use of internal machine locations. What we are going to print in 

the next few issues are source codes for some of the most popular ISC programs. 
We have a large number of these in our files and in many cases we even have 
the origonal source codes upon which ISC based many of their programs. 

( This is because many of these programs were part of out library before 

ISC started selling them for their machines ) Where possible we will present 
the ISC version as our intent is to demonstrate how to use ISC machines 

and show where various subroutines are located. 
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INVENTORY IS? 2Q 


129 PRINT TARC 15) 


"t=LOOK UP PHE PILES. "SPRING 
146 PRINT TAER( 18) 


"2-ADD OR DELETE ITEMS ON INVENTORY FILE.."?2PR 


‘se cae 


18@ PRINT TABC 1@)3"S-MODIFY THE FILES. ":FRINT 
168 PRINT TARC 1@)3"4-RECEIVE MERCHANDIZE. "SFRINT 
178 FRINT TABC 1@)$"S—DO INVOICING. "!FRINT S P 
188 PRINT TAR( 125 "4-ORDER MERCHANDIZE. "iF RINT ¢ Le 
198 PRINT TAR( 19)3"7-TERMINATE THE PROGRAM. "! PRINT ELECTRONIC SYSTEMS 
INFUT “YOUR SELECTION PLEASE: "3S 8250 VAN NUYS #'""*_7 88.9859 
T= @1d= 6 VAN NUYS. &s 3! gyaar 
IF S> 7OR S¢ 1ITHEN GOTO 298 
S= INT (S):0N SGOTO 258, 1819, 2548, 2958, 3488, 6518, 7908 
PLOT 6,2, 12,15 
PRINT "YOU CAN LOOK-UP THE FOLLOWING FILES: " 
PRINT :PRINT TAR( 189% "1~INVENTORY FILE." 
PRINT SPRINT TAR( 12) 5 "2-BACK-ORDER FILE." 
PRINT SPRINT TAR( 12)3"3-BACK-ORDER RELEASE FILE." 
S PRINT : PRINT TAR( 12)4"4-RETURN TO MAIN FROGRAM. " 
PRINT 2 INFUT " YOUR SELECTION PLEASE: "3S 
IF $> 40R S¢ THEN GOTO see 
( S= INT (S):0N SGOTO 315,1158,1638, 198 
§ PLOT 6,2,12,15 
PRINT "INVENTORY FILE." 
PRINT i PRINT "YOU CAN 1-LIST THE COMPLETE FILE." 
SINT SPRINT TAB( 9253 "2-LIST THE FILE FROM ? TO 7." 
PRINT iFRINT TABC 9)4"3-LIST & FARTICULAR ITEM." 
PRINT i PRINT TAB( 9)3"4-COMFPUTE INVENTORY VALUE AT COST." 
388 PRINT i PRINT TABC 9)4"S5-COMPUTE INVENTORY AT RETAIL." 
398 PRINT iP RINT TAR( 9)3"6-RETURN TO MAIN FROGRAM., " 
1168 PRINT "RACE ORDER FILE" ~ 
1178 PRINT :PRINT "YOU CAN 1-LIST THE COMPLETE B/O FILE." . 
118@ PRINT :PRINT TABC 9)3"2-HOW MANY OF AN ITEM IS ON BACK ORDE 
R AND TO WHOM. " 
1648 PRINT "BACK ORDER RELEASE 
1650 FR 


SINT "THIS FILE CONTAINS 
EN 
1668 FRINT "R 


eo 


PLLEs ! SPRINT 
CUSTOMERS FOR WITCH ITEMS HAVE BE 


; ECEIVED BUT INVOICES HAVE NOT BEEN FRINTED YET." 


1985 IF PAlb= "@"THEN GOTO 1816 

91 PRINT sPRINT 

se phir “DESCRIPTION: "3 DES 

193@ INFUT “UNIT OF MEASURE: "SUMS 

1948 INPUT “QUANTITY ON HAND:  "sGH 

1950 INFUT “QUANTITY ON ORDER: = "s@0 

1968 INPUT "COST: "aC 

1978 INPUT “RETAIL: "ERT 

198@ INPUT "MINIMUM QUANTITY:  “aMt 

199% INPUT "“MAXIMUN QUANTITY: "SMG 

INFUT "REORDER QUANTITY: nae 

INEUT “YEAR TO DATE SALE: "sY¥S8 : 
Sune SINEFUT "IS ALL DATA CORRECT? (Y OR ND) "SAS 


ag 


but we have not run it so 
ears to be an excellent ledger program : 
pope nue gaurentee it. It contains about 69@ lines of code and represents 
i rodigious effort. From those to whom we have already given a copy of this 

dines we have reason to expect that it either works as is or with little 
moc Faia ier It certainly could be boiled down a bit with better coding 

i i 11 of a bargain. 

but at the price it represents one he : in. 

The program contains the following sections in addition to the coding 


listed below. PAYROL, EXPENSES, ACCOUNTS PAYABLE, CASH ENTRIES, FROFIT AND 
LOSS, AND PETTY CASH 


PRICE $35.96 DIRECTORY Cbe@: LEGERI fore cP Fo 


ATR NAME TYFE VR SELE SIZE LBC LADR SADR 


BASIL GOBS GOTH 14 E290 BE 
SFACE> 87D M115 


200 DATA "SUNDAY", "MONDAY", "TUESDAY", "WEDNESDAY", "THURSDAY", "FRI 
Y¥", "SATURDAY" 

— DATA 190, "MERCHANDISE", 268, "SHIPPING", 364, "FREIGHT" \ 

2398 DATA 446, "POSTAGE", 19@8,"BAD DEBTS", 1596, "SHOP EXPENSE 

249 DATA 2686, "ACCOUNTING", 2196, "INSURANCE", 2263, "LEGAL" 

258 DATA 2298, "LICENSES", 2494, “OFFICE es Sey 

266 DATA 24668, "LEASING EXPS",2798, "LEASING IN", 289, "TELEPHONE 

279 DATA 2999, "UTILITIES", 3899, "PAYROLL" , 3190, "TAX-SOC. SEC." 

288 DATA 3286,"TAX-ST UNEM. ", 3396, "INTEREST", 3466, "TAX—OTHER 


296 DATA 3508, "CONTRIBUTIONS", 4992, "ENTERTAINMNT"™, 4194, "ADVERTIS 
ING" 


39G DATA 4268, "TRAVEL", 4304, "AUTO", 4496, "DUES+SUBSCRPF" 
318 DATA Sa, "MOTES+LOANS",519@, "FED. INC. TAX", 5294, "LOAN RECVBL 


329 DATA 46888, "PERSONAL ACS", 7890,"FIXED ASSETS" 
35@ PRINT :PRINT :PRINT 


36@ INPUT “DEPARTMENT NUMBER .... "3K1 S. P. 

Sd PRINT ELECTRONIC SYSTEMS 
376 INPUT “FIRM NAME .... "sK1% 

388 PRINT 6250 VAN NUYS BLVD.—788-885@ 
396 INPUT "FOR WEEK ENDING .... “s;WES a RES LS eae 


626 PRINT "ENTER THE FOLLOWING ITEMS ruR EACH NEW EMPLOYEE" 
634 PRINT " ITEMS SHOULD BE SEPARATED BY COMMAS" 

635 PRINT 

646 FOR I= 1TO N2 

658 PRINT "EMPL#, S.S.#, 
668 INPUT E@¢,E£1$,E% 


678 PRINT "HOURLY WAGE, 
AMT" 


686 INPUT EG,D,E1,E? 


696 PRINT "GROSS YEAR-TO-DATE (YTD), FICA YTD, FED Tax YTD, § 
TATE YTD, MISC.DED YTD" ; 
798 INPUT YO,Y1,Y2,Y3,Y4 

71 YS= Y@- Yi- Y2- Y3- y4 

28 PRINT "GROSS THIS PERIOD (SINCE LAST P+L STATEMENT), TAXES T 
HIS FERIOD" 

738 INPUT F@,P1 


749 PRINT “GROSS THIS QTR, FICA THIS QTR, FED.TAX THIS QTR" 
2370 PRINT "ENTER LEDGER ITEMS IN ORDER...." 
238@ PRINT " ACCT.NO., CHECK NO., DATE, PAYEE, amounts 
2385 PRINT 

2398 REM 2 8 


EMPL. NAME" 


DEPENDENT CODE, DEDUCT.AMT, MISC DED. 


The Stolersoft disk is a double disk containing two disk full 
of programs submitted to us by a member in Jugoslavia Sr CF 
It contains 11+ games of varying quality. 


PRICE $25.90 


tt EE Ped | sssssss=> 


1) INDI 588 - A CAR DRIVING GAME 


1) WUMPUS ADVENTURE DIRECTORY CD86: STOLERSOFT 84 =P EH 
2) SPACE FLIGHT 
2) GOLD HINE ATR NAME TYPE VR SBLK SIZE LBC LADR SADR 
= ) SPACECRAFT LANDER 
3) PRESS UPS 83 WUMPUS.BAS}$1 6804 983A 7C 829A 9F% 
3 GOLD .BAS}#1 BB83E 81D OC 829A 9166 4°) DANCE — ANIMATION 
4) STAR-WARS 3 PRESS .BAS}#1 9858 9623 27 829A 93C1 
G3 GREED .BAS3@1 @87E $815 79 829A BD13 
5) BLACK BOX 93 BLABOX.BAS;81 9893 9015 1F 829A 8CR9 
83 STRWRS.BAS}91 9808 6919 22 829A BEBC 
& ) CAMEL ADVENTURE 83 LCA =. BAS}81 BBCi GBIF G4 829A 919E 
@3 MENU .BAS381 @BE@ 8885 35 829A BACF S P 
7) LOGIC CIRCUIT ANALISE 83 CAMEL .BAS}@1 99E5 9822 57 829A 9371 é é 
83 INDI .BAS}91 8187 6819 2F 829A 8A49 ELECTRONIC SYSTEMS 
. A3 LANDER. PRE}91 117 9882 23 EGS EGG 8250 VAN NUYS BLVD. 788-8888 
WHICH PROGRAM DO YOU WANT ?2? 83 LANDER. BAS}91 9119 8613 69 8298 BCa3 


WAN RUYS, CALIFORNI 91401 
93 FLIGHT.BAS}#1 912C 9017 2A 829A aDC4 


@3 DANCE .PRG3@1 8143 #992 23 FEGB FESO 
@3 DANCE .BAS$$1 6145 GOBE 22 829A 8930 
81 <FREE SPACE> #153 893D 


SCHAFERINV SP 58 


Seems to be a good working inventory program used elsewhere and translated 


to the CCII. It has been partially tested but is NOT GAURENTEED but at the 
Price, for an inventory Program, it again a bargain. 


DIRECTORY CD@: SCAFERINV 9&6 


SP SPBS- at 8 


ATR NAME TYPE VR SBLK SIZE LBC LADR SADR $25 


83 INVNT1.RND391 9696 9914 96 G14 98a 
@3 MENU .BAS;@1 941A 9939 7E 98294 9F18 
OS ENV~ . BASES fG5SS BGSA 2F 829A 9F49 
91 <FREE SPACE> ) 98 gags 


WE HAVE NOTED A NUMBER OF OTHER BULLETINS ARE GIVING LESSONS IN 
ASSEMBLE LANGUAGE. WE HAVE CONSIDERED DOING SO ALSO BUT BECAUSE OF 
THE GREAT NUMBER OF EXCELLENT BOOKS ALREADY AVAILABLE ON THE SUBJECT 
WE ARE HOLDING OFF FOR THE PRESENT. 


24 


100 


110 
120 
130 


140 
150 
1460 
170 
180 


190 


200 


210 


220 
230 
240 
250 


ad 


260 
270 
280 


S. P. 
* BLECTRONIC SYSTEMS 


5250 VAN NUYS PLVD.—788-8858 
VAN NUYS. CALIFORNI 91401 


FLOT 12:REM NEW FEYROARD ROUTINE. . “RAY SCHREINER 


REM FOR EXTENDED DISK BASIC (EDB) (428) VERSION 2/1/78 
REM GPU 02S. VERSION 11/29/77 
REM FCS ‘VERSION (2.0) 11/29/77 


PRINT "QNCE THIS ROUTINE IS FORKED INTO MEMORY, IT CAN BE SAVED ON THE DISK, 
FRINT "AND LOADED IN BY ANY FROGRAM THAT MIGHT WANT TO USE IT. JUST SET THE 
PRINT "USER JUMP TO FFCO (195,192,255) AND THEN PLOT27,30. THE KEY STRUCK 
PRINT "WILL BE AT 9FFEH: FEEK(-24578). IF NO KEY WAS STRUCK, 9FFE WILL. 
FRINT "BE A *7*. ESCAPE & CONTROL CODES will not be EXECUTED. 


X= - 24902: FOR I= OTO 2:READ Y:PORE X+ I,Y:NEXT :REM (9EBAH) 

DATA 195,192, 255:REM SET USER JUMP VECTOR TO HEX ADDRESS FFCO 

X= - 64:FOR I= OTO S2:READ Y:POKE X+ 1, Y:NEXT :REM FOKE ROUTINE 

DATA 33, 227,255: REM LXI WH, TABLE s;FOINT TO ROW TABLE 

DATA 126:REM MOV A, M sist TABLE ENTRY IS A FLAG 

DATA SO, 223,159: REM STA 9FDFH ;SET FLAG INDICATING "NO ECHO" 
DATA 30,254, 159: REM STA 9FFEH sINDICATE TO BASIC "NO KEY STRUCK" 
DATA 35:REM Xi: INX H sINCREM. FNTR TO NEXT ROW NUMBER 
DATA 126:REM MOV A, M ;FETCH ROW NUMBER 

DATA 254, 64:REM CPI 64 sHAVE WE CHECKED ALL ROWS ? 

DATA 202,218, 255: REM JZ EXIT sYES, RETURN TO RASIC. NO FEY HIT 
DATA 211,7:REM OUT 07 3;NO, SELECT ROW 

DATA 219, 1:REM IN O1 3GET ANY FENDING CHARACTER 

DATA 254, 255: REM GPL -=1 ;ANYTHING THERE ? 

DATA 202, 202, 255: REM JZ X1 , IF NOT, FOLL. NEXT ROW 

DATA 205,24,0:REM EXIT: CALL O0O18H sYES, DECODE TO ASCII 

DATA 62, REM MVI A, 23 7;SET FLAG INDICATING "BASIC" 

DATA SO, 227, 159: REM STA 9FDFH 3SET THE FLAG 

DATA 201: REM RET 370 BASIC 


DATA 7,48,49,50, 51,52, 53, 54,55, 56,57, 58, 59,60,61,62,65,64:REM ROW TABLE 


REM PROGRAM TO SHOW KEY STRUCK but NOT ECHOED, AND THAT 
REM YOU CAN DO SOMETHING ELSE WHILE WAITING FOR 4 HIT. 


FOR I= 1T0 10000:REM LOOR 10,000 TIMES 

A= RND (1):REM PULL OUT A RANDOM NUMBER 

PLOT. 27, 30: REM CALL THE ROUTINE (FOLL THE ENTIRE EE) 
A= PEER (- 24578) :REM (9FFEH) SEE IF A KEY WAS STRUCK 

IF A= 7YTHEN NEXT 1I:GOTO 410: REM NO HIT, PULL 1 MORE. IF DONE, RESTART 
FRINT Ag i:GOTO 410:REM GOT A HIT. PRINT IT, LOOF # & RESTART 


S. P. 
ELECTRONIC SYSTEMS 


6250 VAN NUYS BLVD.—788-8868 
VAN siurS, CALIFORN $i4 
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